CUSTOMER SERVICE BULLETIN 


Radio/haeK 

CUSTOMER 

SERVICE 

BULLETIN 

400 Atrium—One Tandy Center, Fort Worth, Texas 76102 


Bulletin 




Doecrlptlon^^SlL- 
Model 
Stock No. 

Sept. 3 , 1981 

Page 1 of ^_ 


26-4503 Version 1.1 


Probtem 

In order to accxxnodate the Diseibility Withholding requirements for 
California, New Jersey and Hawaii, the following changes are required. 

There are quite a nunber of changes required. However the majority of them 
cure minor. 


Solution 

After the modification, the setup in "Other Rates and Limits" will operate 
as follows; 

1. If the basis is units worked, enter dollar amount per unit under RATE 
(as always) then leave the limit zero. For the new line (11-supplemental 
Benefits Basis) enter a "U" for (Slit basis. 

2. If the Basis is a percentage of taxable wages, enter the percentage 
(eg 0.6) under RATE and then any applicable maximum under LIMIT. In line 
11, enter a "G" for the basis (% of gross). 

Do the following in order to incorporate the changes. 

1. Backup the diskette(s) and make the changes on the Backup ccpy of the 
program 

2. In BASIC load the program by typing IDAD"aiNQ00". 

3. Make the following changes; 
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CHANGES (Retype the line or refer to the edit section of the owners manual) 

Old Line: 1620 CI£AR2000;GOSUB400:CIS:PRINTCF$:PRINT@(2,16) ,R$" OTHER 
RATES AND LIMITS "N$:DIMFT#(9) ,FT(11) :F9$="###,###. 
F8$="####":F7$=IEFT$(F9$,10)+"#-" 

New Line: 1620 CI£AR2000:GOSUB400:CIS:PRINTCF$:PRINT@(2,16) ,R$" OTHER 
RATES AND LIMITS "N$:DIMFT#(i0) ,FT(11) :F9$="###,###.##-": 
F8$="####":F7$=IEFT$(F9$,10)+"#-" 

OM Line: 1640 DATA"FICA W/H","01020000","SUPP BENEFITS","08000000", 

"OO FICA", "03000102", "00 W/OOMP", "09000708", "BUI", "04050304", "SUI", 
"06070506","EIC","00000900","NET PAY","00000011":REST0RE:P0RI=lT05: 
READC6$(I) :NEXT:PCaiI=lT08:READC6$(I) ,C7$(I) :NEXT 
New Line: 1640 DATA"FICA W/H","01020000","SUPP BENEFITS","08100000", 

”CO FICA", "03000102", "(X) W/COMP", "09000708", "BUI", "04050304", "SUI", 
"06070506","EIC","00000900","NET PAY","00000011":REST0RE:PQRI=lT05: 
READC6$(I):NEXT:P0RI=1T08:READC6$(I) ,C7$(I):NEXT 

OM Line: 1700 PRINT® (16,0) ,R$; " 9 "N$;TAB(10);'VJCRK UNIT ";TAB(25); 

MID$(C3$,73,4):PRINT@(17,0),R$" 10 "N$;TAB(10);"CITY W/H BASIS"; 
lAB(25) ;MID$ (C3$, 77,1) 

New Line: 1700 PRINT®(M,0) ,R$;" 9 "N$;TAB(10); "WCRK UNIT ";TAB(25); 

MID$(C3$,73,4);PRINT®(17,0),R$" 10 "N$;TAB(10);"CITY W/H BASIS"; 

■IAB(25) ;MID$(C3$,77,1) 

OM Line: 1720 PRINT® (19,8), "> ENTER NUMBER OF ITEM TO BE CHANGED ";:FL=2: 
QOSUB100; IFLEN (IN$) <1THEN1720ErSEIFASC (IN$) =1'IHENISETF2$=C3$: PUT2,3: 
CLOSE:GOTO1000EISEI=VAL( IN$):IFI<1(»I>10'IHEN1720EISEPRINT® (19,0) ,ES$ 

New Line: 1720 PRINT®(19,8),"> ENTER NUMBER OF ITEM TO BE CHANGED ";:FL=2: 
GOSUB100: IFLEN (IN$) <l'mEN1720ELSEIFASC (IN$) =l'IHENLSBrF2$=C3$: PUT2,3: 
CLOSE:GOTOl000EISEI=iWAL(IN$) ;IFI<1(»I>U IHEN1720ELSEPRINT® (19,0) ,ES$ 

OM Line: 1730 IFI=9THENPRINT@(19,0) ,EL$:ERINT® (19,8), "> ENTER WORK UNIT 
BASIS " ;: FL=4; GOSUB100: IFCF=1CRCF=2THEN1710ELSEIFLEN (IN$) >0'IHEN 
MID$(C3$,73,4)=SIRING$(4," "):MID$(C3$,73)=IN$:PRINT®(16,25), 
MID$(C3$,73,4) 

New Line: 1730 IFI=9‘IHENPRINT®(19,0) ,EL$:PRINT®(19,8), "> ENTER WORK UNIT 
BASIS ";: FL=4: (3OSUB100: IFCF=1CRCF=2IHEN1710EISEIFLEN (IN$) >0IHEN 
MID$(C3$,73,4)=S1RING$(4," "):MID$(C3$,73)=IN$:PRINT®(M,25), 
MID$(C3$,73,4) 

OM Line: 1740 IF I=10'IHENPRINT@(19,0) ,EL$:PRINT®(19,8), "> ENTER CITY W/H 
BASIS: % OF "R$" F "N$" BDERAL W/H CR % OF "R$" G "N$" ROSS ";:FL=1: 
QOSUB100: IFIN$<> "F"ANDIN$<> "G"'IHEN1740EISEMID$ (C3$, 7 7,1) =IN$: 

PRINT® (17,25) ,MID$ (C3$, 77,1) 

New Line; 1740 IF I=10'IHENPRINT® (19,0) ,EL$;PRINT®(19,8), "> ENTER CITY W/H 
BASIS: % OF "R$" F "N$" BDERAL W/H CR % OF "R$" G "N$" ROSS ";:FL=1; 
QOSOB100: IFIN$<>"F"ANDIN$<>"G"THEN1740EESEMID$ (C3$ ,77,1)=IN$; 

PRINT®(16,25),MID$(C3$,77,1) 
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OM Line: 1790 NEXT:PCRI=lT09:MID$(C3$,I*8-7,8)=MKD$(Fr#(I)) :NEXT: 

PQRI=1TO11 :MID$ {C3$, 1*2+76,2)=^I$ (FTC I)):NEXT:00001710 
New Line: 1790 NEXT:PCRI=lT09:MID${C3$,1*8-7,8)=M®$(Pr#(I)) :NEXT: 

MID$(C3$,201,8)=41KD$(Fr#(10)) :PORI=lTOll:MID$(C3$,1*2+76,2)=^I$(FT(I)) 
:NEXT:QOTO1710 

OM Line: 1920 CLEAR2000:C»IERR(»GOOX)45;QOSUB400:DIMFT#(9),FT(11) :CI5: 

PRINTCF$:PRINT@(2,13),R$'' PRINT COMPANY DEFINITI 

0 N S "N$:PRINT:PRINT;DL$=FNDL$ 

New Line: 1920 CLEAR2000:ONERRCRGOOO45:QOSUB400:DIMFT#{10) ,FT(11) :CI5: 

PRINTCF$:PRINT@(2,13),R$" PRINT COMPANY DEFINITI 

0 N S "N$:PRINT:PRINT:DL$=ENDL$ 

OM Line: 2270 IPRINOTAB(10); "WORK UNIT ";'mB(25) ;MID$(C3$,73,4): 

IPRINTTAB(10);"CITY W/B BASIS";'IAB(25) ;MID$(C3$,77,1) :IPRINT:RErURN 
New Line: 2270 IPRINTTAB(10);"WCIRK UNIT ";'IAB(25) ;MID$(C3$,73,4): 

IPRINTTAB(10);"CITY W/H BftSIS";'IAB(25);MID$(C3$,77,1): LPRINTIAB(10); 

"SUPP BENEFITS BASIS ";MID$(C3$,200,1) :IPRINT:RETURN 

AEOITIONS (O^pe the line followed by an <Hi7rER>) 

1665 FT#(10)=CVD(MID$(C3$,201,8)) 

1705 PRINT®(17,0),R$" 11 "N$OAB(10)"SUPP BENEFITS BASIS:"TAB(31) 

MID$(C3$,200,1) 

1745 IFI=11'IHENPRINT@(19,0),EL$:FRINT@{19,8),"> ENTER SUPP BENEFITS BASIS: " 
R$" U "N$" NITS OR % OF "R$" G "N$" ROSS "; :FL=1:GOSUB100:IFIN$<>"U" 
ANDIN$<>"G"THEN1745EESEMID$(C3$,200,1)=IN$:PRINT®(17,31),IN$ 

2235 ET#(10)=<M)(MID$(C3$,201,8)) 

4. Type SAVE"CHNG!00" to save the changes in the program. 

5. Load the next program by typing LOAD "INPUT". 

6. MaJce the following changes: 

(3D\NGES (Retype the line or refer to the Edit section of the owners manual) 

OM Line: 370 CI£AR4000:GOSUB290:CIS:PRINTCF$:DIME#(22) ,YE#(18) ,R#(9) ,DR#(9), 
H#(9),PT#(10),FT(11),T!(20,3),T%(18),M# (9),BC$(18):PRINT®(0,21),R$ 

" PREPARE PAYCHECKS "N$:FI$="###, ###,###.##-": 

r7T<v=QTRTrarZ<r7Q 

New Line: 370 CIJEAR4000:GOSUB290:CIS:PRINTCF$:DIME#(22) ,YE#(18) ,R#(9) ,IMl#(9), 
H#(9),FT#(10),ET(11),T!(20,3),T%(18),M#(9),BC$(18):PRINT®(0,21),R$ 

" PREPARE PAYCHECKS "N$:FI$="###,###,###.##-": 

UL$=STRING$(79,"-"):HI$="###,###.##-" 
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